www.gusucode.com > BCB 写的一款可自定义风格的俄罗斯方块源码 > BCB 写的一款可自定义风格的俄罗斯方块源码/code/俄罗斯方块/Unit4.cpp

    //Download by http://www.NewXing.com
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Unit4.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TSplashForm *SplashForm;
//---------------------------------------------------------------------------
__fastcall TSplashForm::TSplashForm(TComponent* Owner)
     : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TSplashForm::Timer1Timer(TObject *Sender)
{
     Close();
     Release();
}
//---------------------------------------------------------------------------